home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / Misc Servers / Hamster.EXE / HExport.vbs < prev    next >
Encoding:
Text File  |  1999-04-25  |  1.1 KB  |  43 lines
  1. 'WSH-Script: HExport.vbs
  2.  
  3. 'Get commandline-paramters
  4. Set objArgs = Wscript.Arguments
  5. If objArgs.Count<2 Then
  6.    Wscript.Echo "Usage: cscript export.vbs groupname exportfile"
  7.    Wscript.Quit
  8. Else
  9.    GroupName   = objArgs(0)
  10.    strDestFile = objArgs(1)
  11. End If
  12.  
  13. 'Inititalize Hamster-object
  14. Set Hamster = Wscript.CreateObject( "Hamster.App" )
  15.  
  16. 'Open group
  17. GrpHdl = Hamster.NewsGrpOpen( GroupName )
  18. If GrpHdl>=0 Then
  19.  
  20.    'Create destination-file
  21.    Set objFS = CreateObject( "Scripting.FileSystemObject" )
  22.    Set objDestFile = objFS.CreateTextFile( strDestFile, True )
  23.  
  24.    'Loop through all available articles
  25.    For ArtNo=Hamster.NewsArtNoMin(GrpHdl) To Hamster.NewsArtNoMax(GrpHdl)
  26.       'Get article in export-format and save it in export-file
  27.       ArticleText = Hamster.NewsArtTextExport( GrpHdl, ArtNo ) 
  28.       objDestFile.Write( ArticleText )
  29.    Next
  30.  
  31.    'Close files
  32.    objDestFile.Close
  33.    Hamster.NewsGrpClose( GrpHdl )
  34.  
  35. Else
  36.  
  37.    Wscript.Echo "Could not open group " + GroupName + "!"
  38.  
  39. End If
  40.  
  41. 'Release Hamster-object
  42. Wscript.DisconnectObject Hamster
  43.